home *** CD-ROM | disk | FTP | other *** search
/ MacHome 2001 June / MacHome Magazine Demo Disc June 2001.iso / Stuff / Software / Tools / TattleTech 2.8.2 / TattleTech 2.82 / TattleTech 2.82.rsrc / TEXT_20000.txt < prev    next >
Encoding:
Text File  |  2001-01-26  |  1.5 KB  |  66 lines
  1. %%?BeginFeatureQuery: *Product
  2. statusdict begin
  3. product print(\n)print
  4. end
  5. %%?EndFeatureQuery: Unknown
  6.  
  7. %%?BeginQuery: ADORamSize
  8. /languagelevel where{pop languagelevel}{1}ifelse 2 ge{
  9. currentsystemparams dup/RamSize known{/RamSize get}{pop -1}ifelse
  10. }{
  11. statusdict/ramsize known{statusdict begin ramsize end}{-1}ifelse
  12. }ifelse dup 0 le{
  13. pop vmstatus exch pop exch pop
  14. gsave newpath matrix setmatrix clippath pathbbox grestore
  15. mul 8 div cvi
  16. statusdict/processcolors known{statusdict/processcolors get exec mul}if
  17. exch pop exch pop add
  18. cachestatus pop exch pop add exch pop add exch pop add
  19. 524288 div ceiling cvi 524288 mul
  20. }if 40 string cvs print(\n)print
  21. %%?EndQuery: Unknown
  22.  
  23. %%?BeginFeatureQuery: *?Resolution
  24. /mstr 40 string def
  25. initgraphics
  26. 72 0 dtransform
  27. dup mul exch dup mul add sqrt .25 add round
  28. cvi
  29. 0 72 dtransform
  30. dup mul exch dup mul add sqrt .25 add round
  31. cvi 2 copy eq
  32. {
  33. pop
  34. mstr cvs print
  35. }{
  36. exch
  37. mstr cvs print(x)print
  38. mstr cvs print
  39. }ifelse
  40. (dpi\n)print
  41. %%?EndFeatureQuery: Unknown
  42.  
  43. %%?BeginFeatureQuery: *LanguageLevel
  44. /languagelevel where
  45. {
  46. pop languagelevel dup 2 ge{ 3 string cvs print(\n)}{pop(1\n)}ifelse
  47. }{
  48. (1\n)
  49. }ifelse
  50. print
  51. %%?EndFeatureQuery: Unknown
  52.  
  53. statusdict begin
  54. version =string cvs dup length 1 string dup 0 4 -1 roll put print print
  55.  
  56. /serialnumber where{pop
  57. serialnumber dup 0 lt  { 1  bitshift -1 bitshift } if
  58. =string cvs dup length 1 string dup 0 4 -1 roll put print print
  59. }{( )dup 0 0 put print}ifelse
  60.  
  61. pagecount =string cvs dup length 1 string dup 0 4 -1 roll put print print 
  62. end
  63.  
  64. flush
  65. %%EOF
  66.